unit Gopage;

interface

uses
    WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
    StdCtrls, ExtCtrls, Spin;

type
    TGoPageForm = class(TForm)
        OKBtn : TBitBtn;
        CancelBtn : TBitBtn;
        Bevel1 : TBevel;
        PageNum : TSpinEdit;
        procedure PageNumEnter(Sender : TObject);
        procedure PageNumKeyDown(Sender : TObject; var Key : Word;
            Shift : TShiftState);
    private
        { Private declarations }
    public
        { Public declarations }
    end;

var
    GoPageForm : TGoPageForm;

implementation

{$R *.DFM}

procedure TGoPageForm.PageNumEnter(Sender : TObject);
begin
    PageNum.SelectAll;
end;

procedure TGoPageForm.PageNumKeyDown(Sender : TObject; var Key : Word;
    Shift : TShiftState);
begin
    if Key = 13 then begin
        Key := 0;
        OKBtn.Click;
    end;
end;

end.
